home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / mac / nmail.sit / NetMail-OTc / background_2608.txt < prev    next >
Text File  |  1990-05-06  |  8KB  |  362 lines
  1. -- background: 2608 from stack: in
  2. -- bmap block id: 3757
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: MailCard
  6. ----- HyperTalk script -----
  7. on openCard
  8.   if bkgnd field id 10 is not empty then
  9.     set the rect of bkgnd field 1 to 11,58,502,187
  10.     show bkgnd field id 10
  11.     show bkgnd button id 11
  12.     show bkgnd button id 13
  13.     show bkgnd button 9
  14.   end if
  15. end openCard
  16.  
  17.  
  18.  
  19. -- part 1 (field)
  20. -- low flags: 01
  21. -- high flags: 0007
  22. -- rect: left=11 top=58 right=307 bottom=502
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 0 / 0
  25. -- text alignment: 0
  26. -- font id: 4
  27. -- text size: 10
  28. -- style flags: 0
  29. -- line height: 13
  30. -- part name: Letter
  31.  
  32.  
  33. -- part 2 (field)
  34. -- low flags: 01
  35. -- high flags: 0000
  36. -- rect: left=345 top=12 right=30 bottom=411
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 0
  40. -- font id: 3
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: User
  45.  
  46.  
  47. -- part 3 (field)
  48. -- low flags: 01
  49. -- high flags: 0000
  50. -- rect: left=45 top=35 right=53 bottom=492
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 0
  54. -- font id: 3
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: RE
  59.  
  60.  
  61. -- part 4 (button)
  62. -- low flags: 00
  63. -- high flags: A004
  64. -- rect: left=195 top=309 right=331 bottom=297
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: Kill This Mail
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   domenu "Delete Card"
  76. end mouseUp
  77.  
  78.  
  79.  
  80. -- part 5 (button)
  81. -- low flags: 00
  82. -- high flags: 2000
  83. -- rect: left=120 top=310 right=328 bottom=151
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 15420 / 15420
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: Left
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   set the rect of bkgnd field 1 to 11,58,502,307
  95.   hide bkgnd field id 10
  96.   hide bkgnd button id 11
  97.   hide bkgnd button id 13
  98.   hide bkgnd button id 14
  99.   go to previous
  100.   if bkgnd field 1 is empty then
  101.     go to previous
  102.   end if
  103. end mouseUp
  104.  
  105.  
  106.  
  107. -- part 6 (button)
  108. -- low flags: 00
  109. -- high flags: 2000
  110. -- rect: left=156 top=310 right=328 bottom=187
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 16560 / 16560
  113. -- text alignment: 1
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: Right
  119. ----- HyperTalk script -----
  120. on mouseUp
  121.   set the rect of bkgnd field 1 to 11,58,502,307
  122.   hide bkgnd field id 10
  123.   hide bkgnd button id 11
  124.   hide bkgnd button id 13
  125.   hide bkgnd button id 14
  126.   go next
  127. end mouseUp
  128.  
  129.  
  130.  
  131. -- part 7 (button)
  132. -- low flags: 00
  133. -- high flags: 2000
  134. -- rect: left=83 top=310 right=328 bottom=114
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 24317 / 24317
  137. -- text alignment: 1
  138. -- font id: 0
  139. -- text size: 12
  140. -- style flags: 0
  141. -- line height: 16
  142. -- part name: Start
  143. ----- HyperTalk script -----
  144. on mouseUp
  145.   set the rect of bkgnd field 1 to 11,58,502,307
  146.   hide bkgnd field id 10
  147.   hide bkgnd button id 11
  148.   hide bkgnd button id 13
  149.   hide bkgnd button id 14
  150.   doMenu "Compact Stack"
  151.   go to first card
  152. end mouseUp
  153.  
  154.  
  155.  
  156. -- part 8 (button)
  157. -- low flags: 00
  158. -- high flags: 2000
  159. -- rect: left=14 top=311 right=329 bottom=45
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 20689 / 20689
  162. -- text alignment: 1
  163. -- font id: 0
  164. -- text size: 12
  165. -- style flags: 0
  166. -- line height: 16
  167. -- part name: Home
  168. ----- HyperTalk script -----
  169. on mouseUp
  170.   go home
  171. end mouseUp
  172.  
  173.  
  174.  
  175. -- part 9 (button)
  176. -- low flags: 00
  177. -- high flags: A004
  178. -- rect: left=381 top=309 right=331 bottom=502
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 0 / 0
  181. -- text alignment: 1
  182. -- font id: 0
  183. -- text size: 12
  184. -- style flags: 0
  185. -- line height: 16
  186. -- part name: Write/See Reply
  187. ----- HyperTalk script -----
  188. on mouseUp
  189.   set the rect of bkgnd field 1 to 11,58,502,187
  190.   show bkgnd field id 10
  191.   show bkgnd button id 11
  192.   show bkgnd button id 13
  193.   show bkgnd button 9
  194. end mouseUp
  195.  
  196.  
  197.  
  198. -- part 10 (field)
  199. -- low flags: 80
  200. -- high flags: 0007
  201. -- rect: left=11 top=187 right=307 bottom=502
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 0 / 0
  204. -- text alignment: 0
  205. -- font id: 4
  206. -- text size: 10
  207. -- style flags: 0
  208. -- line height: 13
  209. -- part name: Reply
  210. ----- HyperTalk script -----
  211. on openCard
  212.   hide me
  213. end openCard
  214.  
  215.  
  216.  
  217. -- part 11 (button)
  218. -- low flags: 80
  219. -- high flags: 8001
  220. -- rect: left=280 top=13 right=29 bottom=345
  221. -- title width / last selected line: 0
  222. -- icon id / first selected line: 0 / 0
  223. -- text alignment: 1
  224. -- font id: 0
  225. -- text size: 12
  226. -- style flags: 0
  227. -- line height: 16
  228. -- part name: Send to:
  229. ----- HyperTalk script -----
  230. on mouseUp
  231.   --process reply
  232.   push card
  233.   set lockscreen to true
  234.   get bkgnd field 2
  235.   show msg
  236.   put it into userID
  237.   put "Looking for user ID information..."
  238.   go to first card
  239.   if userID is not in card field 3 then
  240.     put "ID for this person is not present." into msg
  241.     pop card
  242.     set the lockscreen to false
  243.     repeat for 5000
  244.     end repeat
  245.     hide msg
  246.     exit mouseUp
  247.   end if
  248.   put "ID info found -- Loading parameters" into msg
  249.   put 1 into lineNr
  250.   repeat for the number of lines in card field 3
  251.     if userID contains line lineNr of card field 3 then
  252.       get line lineNr of card field 4
  253.       put it into temp
  254.       put card field 2 & ":" & temp into destination
  255.       get card field 7
  256.       put it into myID
  257.       put ":" & myID after destination
  258.       add 1 to line lineNr of card field 9
  259.       if line lineNr of card field 9 > 90 then
  260.         put 1 into line lineNr of card field 9
  261.       end if
  262.       get line lineNr of card field 9
  263.       put ".N" & it after destination
  264.       pop card
  265.       put "Sending mail..." into msg
  266.       open file destination
  267.       write bkgnd field 3 to file destination
  268.       write return & "
  269.       " to file destination
  270.       write return & "
  271.       " to file destination
  272.       repeat with lnCount =1 to the number of lines in bkgnd field 4
  273.         write line lnCount of bkgnd field 4 & return & "
  274.         " to file destination
  275.       end repeat
  276.       close file destination
  277.       put "Mail sent." into msg
  278.       push card
  279.       go to first card
  280.       get card field 8
  281.       pop card
  282.       StdFile(it)
  283.       set lockscreen to false
  284.       hide msg
  285.       exit repeat
  286.       --reset screen
  287.       hide bkgnd button id 13
  288.       hide bkgnd field id 10
  289.       hide bkgnd button 9
  290.       hide me
  291.       exit repeat
  292.     end if
  293.     add 1 to lineNr
  294.   end repeat
  295.   hide bkgnd field id 10
  296.   set the rect of bkgnd field 1 to 11,58,502,307
  297.   hide bkgnd button id 11
  298.   hide bkgnd button id 13
  299.   hide bkgnd button 9
  300. end mouseUp
  301.  
  302.  
  303.  
  304. -- part 13 (button)
  305. -- low flags: 80
  306. -- high flags: A004
  307. -- rect: left=196 top=309 right=331 bottom=298
  308. -- title width / last selected line: 0
  309. -- icon id / first selected line: 0 / 0
  310. -- text alignment: 1
  311. -- font id: 0
  312. -- text size: 12
  313. -- style flags: 0
  314. -- line height: 16
  315. -- part name: Cancel/Clear
  316. ----- HyperTalk script -----
  317. on mouseUp
  318.   set the rect of bkgnd field 1 to 11,58,502,307
  319.   put empty into bkgnd field id 10
  320.   hide bkgnd button id 11
  321.   hide bkgnd field id 10
  322.   hide me
  323. end mouseUp
  324.  
  325.  
  326.  
  327. -- part 14 (button)
  328. -- low flags: 80
  329. -- high flags: A004
  330. -- rect: left=296 top=309 right=331 bottom=383
  331. -- title width / last selected line: 0
  332. -- icon id / first selected line: 0 / 0
  333. -- text alignment: 1
  334. -- font id: 0
  335. -- text size: 12
  336. -- style flags: 0
  337. -- line height: 16
  338. -- part name: Close Reply
  339. ----- HyperTalk script -----
  340. on mouseUp
  341.   set the rect of bkgnd field 1 to 11,58,502,307
  342.   hide bkgnd field id 10
  343.   hide bkgnd button id 11
  344.   hide bkgnd button id 13
  345.   hide me
  346. end mouseUp
  347.  
  348.  
  349.  
  350. -- part 15 (field)
  351. -- low flags: 01
  352. -- high flags: 0000
  353. -- rect: left=413 top=12 right=29 bottom=499
  354. -- title width / last selected line: 0
  355. -- icon id / first selected line: 0 / 0
  356. -- text alignment: 0
  357. -- font id: 3
  358. -- text size: 12
  359. -- style flags: 0
  360. -- line height: 16
  361. -- part name: UserID
  362.